home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 47.7z / BS1 part 47 / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].7z / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].adf / Data / writeaddr.bas < prev   
Encoding:
BASIC Source File  |  1988-12-02  |  384 b   |  22 lines
  1. OPEN "AddressFile" FOR APPEND AS 1
  2.  
  3. Entry:
  4.   PRINT 
  5.   INPUT "Name";Nam$
  6.   INPUT "Address";Address$
  7.   INPUT "City";City$
  8.   INPUT "Phone";Phone$
  9.   PRINT#1,Nam$
  10.   PRINT#1,Address$
  11.   PRINT#1,City$
  12.   PRINT#1,Phone$
  13.   x=x+1
  14.   PRINT "Record"x" ("Nam$") stored."
  15.   PRINT "Add more records?"
  16.   INPUT "Y/N:";Ans$
  17.   IF UCASE$(Ans$)="Y" THEN Entry
  18.   
  19. CLOSE
  20. PRINT "File closed. Program ended."
  21.   
  22.